home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Summer / rerun-1985-summer-side-a.d64 / graph load 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  361 b   |  13 lines
  1. 50000 rem ** load subroutine    **
  2. 50010 :
  3. 50020 rem ** (c) 1984 by d. smoak **
  4. 50030 :
  5. 50040 input"[147]exact filename";f$:iff$=""orlen(f$)>14then50040
  6. 50050 f$(2)=f$:f$(1)=f$+".c"
  7. 50060 forj=1to2:f$=f$(j)
  8. 50070 ifj=2thencl=peek(56296):poke53280,cl:poke53281,cl
  9. 50080 fori=1to len(f$):poke819+i,asc(mid$(f$,i,1)):next
  10. 50090 poke183,len(f$):poke187,52:poke188,3:poke186,8:poke185,1
  11. 50100 poke780,0:sys65493:nextj
  12. 50110 rem** return (if called by gosub)  **
  13.